home *** CD-ROM | disk | FTP | other *** search
/ Publication 50 / Publication_50_2003_Civitas_de_Disk_2_of_2_Side_B.d64 / bas4x3 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  144b  |  9 lines
  1. 0 print"[147]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@[157][157][157][157]@@@@"
  2. 10 a=11008
  3. 20 b=1
  4. 30 fori=0to2
  5. 40 forx=0to3
  6. 50 poke1024+i*40+x,peek(a+(b*4)+(i*256)+x)
  7. 60 nextx
  8. 70 nexti
  9.